home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 October / 64er_Magazin_92-10_1992_Markt__Technik_de_Side_A.d64 / shoot or die (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 1 x$="":y$=""
  2. 2 f$="welcome to > shoot or die < by f.t.     ":f$=f$+f$:poke53280,0:poke53281,0
  3. 3 s=54272:x=19:y=1:x1=-1:k=19:print"[147]";left$(y$,11);:d=10:u=1984:pokes+24,15
  4. 4 fori=1to40:printmid$(f$,i,40);"[145]";:forj=0to35:next:geta$:ifa$=""thennext:goto4
  5. 5 pokes+5,0:pokes+1,80:b=0:p=0:y=1:x=19:k=19:print"[147]"tab(26)"hiscore:"h:goto15
  6. 6 fori=0toaz:a=rnd(1)*920:poke1064+a,86:poke55336+a,13:pokec,0:pokec,17:next
  7. 7 x2=0:y1=0:ifpeek(1024+x+x1+y*40)<>86andx+x1>-1andx+x1<40then9
  8. 8 x1=-x1:ifpeek(1024+x+40*(y+1))<>86andy+y1<24theny1=1:x2=-x1
  9. 9 poke1024+x+40*y,32:y=y+y1:x=x+x1+x2:poke1024+x+40*y,81:ify=24then17
  10. 10 o=peek(56320):a=((255-oand12)-6)/2:ifa=-3ork+a<0ork+a>38thena=0
  11. 11 pokeu+k,32:k=k+a:pokeu+k,113:ifo=111andge=0thend=d+1:ge=1:mx=k:my=20:goto19
  12. 12 onge+1goto7:print""left$(x$,mx)left$(y$,my+1)" [157] [157] [157] ";:my=my-4
  13. 13 ge=0:onsgn(my)+2goto7:ge=1:print""left$(x$,mx)left$(y$,my+1)"^[157]^[157]^[157]^";
  14. 14 on-(x<>mx)or-(y<my)or-(y>my+8)goto7:b=b+1:x=19:y=1:p=p+((25-d)and31):goto20
  15. 15 c=s+4:az=(d*5):d=0:print"punkte:"ptab(13)"bombs:"100-b"[157] ":pokes+5,0
  16. 16 on-(b<100)goto6:f$="congratulations !  you saved planto!    ":f$=f$+f$
  17. 17 ifp>hthenh=p:print"    congratulations ! new hi-score !    "
  18. 18 on-(b=100)goto3:poke198,0:wait198,1:d=10:goto5
  19. 19 pokes+2,128:pokes+5,10:pokes+1,2:pokec,0:pokec,65:goto12
  20. 20 pokes+5,11:pokes+1,2:pokec,0:pokec,129:fori=0to2000:next:pokes+1,80:goto15
  21.